insert_CH_CH Function

private elemental function insert_CH_CH(string, start, substring) result(ins_string)

Insert a character substring into a character string

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: string
integer, intent(in) :: start
character(len=*), intent(in) :: substring

Return Value type(varying_string)


Variables

Type Visibility Attributes Name Initial
integer, private :: start_

Source Code

  elemental function insert_CH_CH (string, start, substring) result (ins_string)

    character(LEN=*), intent(in) :: string
    integer, intent(in)          :: start
    character(LEN=*), intent(in) :: substring
    type(varying_string)         :: ins_string

    integer                      :: start_


    start_ = MAX(1, MIN(start, LEN(string)+1))

    ins_string = var_str(string(:start_-1)//substring//string(start_:))

! Finish

    return

  end function insert_CH_CH